home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 62 / 062.d81 / cubik boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  58 lines
  1. 110 c$="[150][158][150][158]":x=7:printchr$(142):printchr$(8)
  2. 120 poke53280,.:poke53281,.:poke198,.
  3. 130 goto330
  4. 140 :
  5. 150 print""spc(12)left$(c$,x)" [146][184]"
  6. 160 printspc(12)left$(c$,x)" [146] "
  7. 170 printspc(12)left$(c$,x)" [146][162]"
  8. 180 print""spc(15)left$(c$,x+1)" [146]  "
  9. 190 printspc(15)left$(c$,x+1)" [146]  "
  10. 200 printspc(15)left$(c$,x+1)" [146][162] "
  11. 210 print""spc(19)left$(c$,x+2)" [146][184][161]"
  12. 220 printspc(19)left$(c$,x+2)" [146][184][161]"
  13. 230 printspc(19)left$(c$,x+2)" [146][162][161]"
  14. 240 print""spc(23)left$(c$,x+3)" "
  15. 250 printspc(23)left$(c$,x+3)" "
  16. 260 printspc(23)left$(c$,x+3)" "
  17. 270 print""spc(25)left$(c$,x+4)" [146] [169] "
  18. 280 printspc(25)left$(c$,x+4)"  [146]  "
  19. 290 printspc(25)left$(c$,x+4)" [146] [223][146] [144]"
  20. 300 x=x-1:ifx=1thenx=7
  21. 310 fort=1to500:next:return
  22. 320 :
  23. 330 print"[147][159]"tab(11)"copyright 1989 by
  24. 340 [153][163]7)"ortantantantantantantantantantantantantantantantantantantantantantantantantan^"
  25. 350 [153][163]7)"(NULL) pierre bergeron         (NULL)"
  26. 360 [153][163]7)"(NULL)     real bergeron et    (NULL)"
  27. 370 [153][163]7)"(NULL)         renaud bergeron (NULL)"
  28. 380 [153][163]7)"/tantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  29. 390 [153]"                   poke="
  30. 400 [153]"   do you want     poke(NULL)  voulez-vous les"
  31. 410 [153]"     prompts       poke(NULL)   instructions"
  32. 420 [153]"        in         poke(NULL)        en"
  33. 430 [153]"     english ?     poke(NULL)     francais ?"
  34. 440 [153]"                   poke(NULL)"
  35. 450 [153]"      pokepress        (NULL)     enfoncez
  36. 460 print"       [152][213][192][201][146]         [151][221]        [152][213][192][201]"
  37. 470 print"       [152][221]e[221][146]         [151][221]        [152][221]f[221]"
  38. 480 print"       [152][202][192][203][146]         [151][221]        [152][202][192][203]"
  39. 490 print"                   [151][177]"
  40. 500 :
  41. 510 geta$
  42. 520 ifa$="f"thenpoke53247,2:print"[147]":gosub150:goto570
  43. 530 ifa$="e"thenpoke53247,1:print"[147]":gosub150:goto580
  44. 540 ifa$<>"f"ora$<>"e"thengosub150
  45. 550 goto510
  46. 560 :
  47. 570 poke214,20:print:print"     un moment, s'il vous plait...":goto600
  48. 580 poke214,20:print:print"          one moment, please..."
  49. 590 :
  50. 600 sys57812"c000.data",8,0:poke780,.:poke781,.:poke782,192:sys65493
  51. 610 print"[144]poke44,32:poke43,1
  52. 620 [153]"load"[199](34)"cu.font1"[199](34)",8,1"
  53. 630 [153]"poke8192,0:poke53272,19:load"[199](34)"cubik"[199](34)",8"
  54. 640 [153]"run"
  55. 650 [151]631,13:[151]632,13:[151]633,13:[151]634,13:[151]198,4
  56. 660 [128]
  57. 10000 [159]15,8,15,"s0:cubik boot":[160]15:[148]"cubik boot",8:[128]
  58.